home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / COMBDIAL._ / COMBDIAL.
Encoding:
Text File  |  2001-03-02  |  830 b   |  21 lines
  1. 10    ! *********************************************************
  2. 20    ! Example: COMBO Dialog
  3. 30    !
  4. 40    ! This program creates a COMBO dialog. The user can select
  5. 50    ! an item from the supplied list (COSMOPOLITAN, etc.) or
  6. 60    ! can enter a name from the keyboard. The user selection is
  7. 70    ! displayed after a selection is made and Enter is pressed.
  8. 80    !
  9. 90    ! *********************************************************
  10. 100   !
  11. 110   DIM M$(1:7)[20],S$[25],P$[50]
  12. 120   INTEGER Btn
  13. 130   P$="What is your favorite magazine?"
  14. 140   DATA "COSMOPOLITAN","ENQUIRER","DISCOVER","TIME"
  15. 150   DATA "HEALTH","SPORTS","NEW YORKER"
  16. 160   READ M$(*)
  17. 170   !
  18. 180   DIALOG "COMBO",P$,Btn;SET ("TITLE":" Example: COMBO Dialog","ITEMS":M$(*)),RETURN ("TEXT":S$)
  19. 190   DISP "Magazine selected:";S$
  20. 200   END
  21.